home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_90-04_1990_-_de_Side_A.d64
/
[u] transfere
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
52 lines
0 poke53280,0:poke53281,0:print"[147][154]";
1 print"[196]ieser [212]ransfere-[194]efehl kann an belie-
2 [153]"biger (NULL)telle im (NULL)amspeicher stehen.
3 print"[197]r ist vielseitig und universelle ein-
4 [153]"setzbar und vermag die gesamten
5 print"84 (in [215]orten:[214]ierundachtsig !)
6 [153]"(NULL)peekyte (NULL)peicher des len64 beliebig zu
7 print"verschieben.
8 [153]"str$ie atnnwendung lautet:
9 print"sys [216],[211],[197],[218],[208]1
10 [153]"(NULL) = (NULL)peicheradresse der (NULL)len-(NULL)outine
11 print"[211] = [211]tartadresse der [214]erschiebung
12 [153]"val = valndadresse der (NULL)erschiebung
13 print"[218] = [218]ieladresse der [214]erschiebung
14 [153]"(NULL)1= (NULL)ert von (NULL)peicheradresse 1
15 print" 55 = [210]om
16 [153]" 54 = (NULL)om / peekasic (NULL)am
17 print" 53 = [210]om / [194]asic [210]am / [203]ernal [210]am
18 [153]" 52 = atnlles (NULL)am
19 print" usw. ([211]iehe [204]iteratur)
20 [153]"z.peek. sys (NULL),1024,2023,40960,54
21 data32,253,174,32,138,173,32,247,183,132,251,133,252,32,253,174,32,138,173
22 data32,247,183,140,60,3,141,61,3,32,253,174,32,138,173,32,247,183,132,253
23 data133,254,32,253,174,32,158,183,173,32,208,133,2,120,134,1,160,0,177,251
24 data145,253,141,24,212,141,32,208,165,252,205,61,3,208,23,165,251,205,60,3
25 data208,16,169,55,133,1,88,169,0,141,24,212,165,2,141,32,208,96,230,251,230
26 data253,165,251,208,2,230,252,165,253,208,202,230,254,160,0,152,240,195
27 print" legt den [194]ildschirm im [210]am unter
28 [153]" dem peekasicrom ab.
29 geta$:ifa$=""then29
30 print"[147][194]itte die [211]tartadresse fuer die
31 [153]"(NULL)aschinenroutine angeben.
32 print"(zwischen 4000 und 40800) oder
35 [153]"(zwischen 49152 und 53000)
36 sa=0:input"[211]tartadresse";sa
37 ifsa<4000then36
38 ifsa>40800andsa<49152then36
39 ifsa>53000then36
40 fort=0to117:readq:pokesa+t,q:next:ea=sa+117
41 y1=int(sa/256):x1=sa-(y1*256)
42 y2=int(ea/256):x2=ea-(y2*256)
43 n$="":input"[211]peicherfilename";n$
44 ifn$=""then43
45 sys57812n$,8
46 poke193,x1:poke194,y1
47 poke174,x2:poke175,y2
48 sys62954
49 print"[204]age der [212]rans-[210]outine:"sa"-"ea"
50 [153]"(NULL)aden mit ',8,1'
51 print"[198]unktion: sys"sa",[211],[197],[218],[208]1
52 [153]"(len) 1989 (NULL)aurien (NULL)oftware len(NULL)